home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / mssghkct / sysmenu.frm (.txt) < prev    next >
Visual Basic Form  |  1998-11-20  |  4KB  |  112 lines
  1. VERSION 4.00
  2. Begin VB.Form frmSysMenu 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "System Menu"
  5.    ClientHeight    =   2475
  6.    ClientLeft      =   2415
  7.    ClientTop       =   3630
  8.    ClientWidth     =   5085
  9.    Height          =   2880
  10.    Icon            =   "SysMenu.frx":0000
  11.    Left            =   2355
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2475
  16.    ScaleWidth      =   5085
  17.    Top             =   3285
  18.    Width           =   5205
  19.    Begin MSGHOOKLibCtl.MsgHook MsgHook2 
  20.       Left            =   3195
  21.       OleObjectBlob   =   "SysMenu.frx":0442
  22.       Top             =   1530
  23.    End
  24.    Begin VB.Label Label4 
  25.       BackStyle       =   0  'Transparent
  26.       Caption         =   "e-mail:"
  27.       Height          =   210
  28.       Left            =   60
  29.       TabIndex        =   3
  30.       Top             =   1080
  31.       Width           =   510
  32.    End
  33.    Begin VB.Label Label1 
  34.       Caption         =   $"SysMenu.frx":0470
  35.       Height          =   675
  36.       Left            =   60
  37.       TabIndex        =   2
  38.       Top             =   60
  39.       Width           =   4965
  40.    End
  41.    Begin VB.Label lblMailTo 
  42.       BackStyle       =   0  'Transparent
  43.       Caption         =   "alexw@netvision.net.il"
  44.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  45.          Name            =   "MS Sans Serif"
  46.          Size            =   8.25
  47.          Charset         =   177
  48.          Weight          =   400
  49.          Underline       =   -1  'True
  50.          Italic          =   0   'False
  51.          Strikethrough   =   0   'False
  52.       EndProperty
  53.       ForeColor       =   &H8000000D&
  54.       Height          =   240
  55.       Left            =   615
  56.       MouseIcon       =   "SysMenu.frx":0506
  57.       MousePointer    =   99  'Custom
  58.       TabIndex        =   1
  59.       Top             =   1050
  60.       Width           =   1875
  61.    End
  62.    Begin VB.Label Label2 
  63.       BackStyle       =   0  'Transparent
  64.       Caption         =   "Copyright 
  65.  1998, Alex Wainstein"
  66.       Height          =   240
  67.       Left            =   30
  68.       TabIndex        =   0
  69.       Top             =   780
  70.       Width           =   3210
  71.    End
  72.    Begin MSGHOOKLibCtl.MsgHook MsgHook1 
  73.       Left            =   3630
  74.       OleObjectBlob   =   "SysMenu.frx":0658
  75.       Top             =   1680
  76.    End
  77. Attribute VB_Name = "frmSysMenu"
  78. Attribute VB_Creatable = False
  79. Attribute VB_Exposed = False
  80. Option Explicit
  81. Private Sub Form_Load()
  82. '1. Use API to add some items to the system menu...
  83. Dim hMenu As Long
  84. hMenu = GetSystemMenu(hwnd, 0)
  85. AppendMenu hMenu, MF_SEPARATOR, 0, ""
  86. AppendMenu hMenu, MF_ENABLED Or MF_STRING, IDM_ABOUT, "&About"
  87. '2. Setup Message Hook to prerocess WM_SYSCOMMAND message
  88. MsgHook1.hwnd = hwnd
  89. MsgHook1.AddMessage WM_SYSCOMMAND, mshPreProcess
  90. End Sub
  91. Private Sub lblMailTo_Click()
  92. Dim res As Long
  93. Dim lpOperation As String
  94. Dim lpFile As String
  95. Dim lpParameters As String
  96. Dim lpDirectory As String
  97. Dim nShowCmd As Long
  98. lpOperation = "open"
  99. lpFile = "MAILTO:" + lblMailTo
  100. nShowCmd = vbNormalFocus
  101. res = ShellExecute(hwnd, lpOperation, lpFile, lpParameters, ByVal lpDirectory, nShowCmd)
  102. End Sub
  103. Private Sub MsgHook1_Message(ByVal MsgId As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal MsgProcessing As Integer, MsgResult As Long)
  104. Select Case MsgId
  105. Case WM_SYSCOMMAND:
  106.     Select Case wParam
  107.         Case IDM_ABOUT
  108.             frmAbout.Show vbModal
  109.     End Select
  110. End Select
  111. End Sub
  112.